home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Network Support Library
/
RoseWare - Network Support Library.iso
/
apidev
/
tpapi.exe
/
NWCONN.PA1
< prev
next >
Wrap
Text File
|
1994-01-14
|
5KB
|
94 lines
{#Z+}
(*(10U&l12D(s4099T&k2S*)
{***************************************************************************}
{** Program : NWCONN **}
{***************************************************************************}
{** Version : 1.4 ** Started : 11/11/91 ** Ended : / / **}
{***************************************************************************}
{******************************** Description ******************************}
{***************************************************************************}
{** OOP library for Netware API **}
{** **}
{** This unit forms the second level object : CONNECT **}
{** This object is a descandent of : NETWARE **}
{** **}
{** **}
{** **}
{** **}
{***************************************************************************}
{******************************** Information ******************************}
{***************************************************************************}
{** Provides Netware Connection Services **}
{** **}
{** **}
{** **}
{** This code is (c) 1991 - 1994 Antonio Covelli. ALL RIGHTS RESERVED. **}
{** Portions (c) Novell Inc, **}
{** **}
{** **}
{***************************************************************************}
{$I NETWARE.INC}
{#Z-}
UNIT NWCONN;
INTERFACE
USES
nwvar,
netware;
TYPE
pConnectionOBJ = ^ConnectionOBJ;
ConnectionOBJ = OBJECT (NetwareOBJ)
FUNCTION AttachToFileServer (ServerName : TObjectName; VAR ConnectionID : WORD) : WORD;
FUNCTION AttachToFileServerWithAddress (ServerName : TObjectName; VAR ConnectionID : WORD;
NetAddress : TServerAddress) : WORD;
PROCEDURE DetachFromFileServer (ConnectionID : WORD);
FUNCTION EnterLoginArea (LoginSubdirectoryName : TPathName; NumberOfLocalDrives : WORD) : WORD;
FUNCTION GetConnectionInformation (ConnectionNumber : longint; VAR ObjectName : TObjectName;
VAR ObjectType : OT_BinderyType; VAR ObjectID : OT_BinderyID;
VAR LoginTime : TByte7Array) : WORD;
FUNCTION GetConnectionNumber : longint;
{The above function is in NETWARE.PAS}
FUNCTION GetInternetAddress (ConnectionNumber : longint; VAR NetworkNumber : TByte4Array;
VAR PhysicalNodeAddress : TByte6Array; VAR SocketNumber : WORD;
var ConnectionType : byte) : WORD;
FUNCTION GetObjectConnectionList (ObjectName : TObjectName; ObjectType : OT_BinderyType;
VAR NumberOfConnections : byte;
VAR ConnectionList : TConnectionList) : WORD;
PROCEDURE GetStationAddress (VAR PhysicalNodeAddress : TByte6Array);
function GetUserConnectionList (ObjectName : TObjectName; var NumberOfConnections : byte;
var ConnectionList : TConnectionList) : word;
FUNCTION LoginObject (ObjectName : TObjectName; ObjectType : OT_BinderyType;
ObjectPassword : TPassword) : WORD;
function KeyedLogin (ObjectName : TObjectName; ObjectType : OT_BinderyType;
LoginKey : TEncryptKey) : WORD;
PROCEDURE Logout;
PROCEDURE LogoutFromFileServer (ConnectionID : WORD);
function NegotiateBufferSize (ProposedBufferSize : word;
var AcceptedBufferSize : word) : word;
DESTRUCTOR Done; VIRTUAL;
END;